/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / GSXSAM.ZIP;1 / LIBMAIN2.SCT

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 01 27 00 00 00 21 | 00 00 00 00 00 00 00 00 |...'...!|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 01 00 00 00 0d | 4d 53 20 53 61 6e 73 20 |........|MS Sans |
|00000220| 53 65 72 69 66 00 00 00 | 00 00 00 00 00 00 00 00 |Serif...|........|
|00000230| 00 00 00 00 01 00 00 00 | 31 2a 20 20 44 65 66 69 |........|1*  Defi|
|00000240| 6e 65 20 61 20 6c 69 62 | 72 61 72 79 20 63 61 6c |ne a lib|rary cal|
|00000250| 6c 65 64 20 4d 41 49 4e | 2e 0d 0a 2a 3a 44 45 46 |led MAIN|...*:DEF|
|00000260| 4c 49 42 20 4d 41 49 4e | 0d 0a 00 00 00 00 00 00 |LIB MAIN|........|
|00000270| 00 00 00 00 00 00 01 00 | 00 00 14 44 72 61 67 44 |........|...DragD|
|00000280| 72 6f 70 5f 44 72 61 67 | 43 6f 6e 74 72 6f 6c 00 |rop_Drag|Control.|
|00000290| 00 00 00 00 00 00 00 01 | 00 00 04 10 2a 3a 44 45 |........|....*:DE|
|000002a0| 46 4f 42 4a 20 44 72 61 | 67 44 72 6f 70 5f 44 72 |FOBJ Dra|gDrop_Dr|
|000002b0| 61 67 43 6f 6e 74 72 6f | 6c 0d 0a 2a 3a 42 41 53 |agContro|l..*:BAS|
|000002c0| 4f 42 4a 20 44 72 61 67 | 44 72 6f 70 5f 44 72 61 |OBJ Drag|Drop_Dra|
|000002d0| 67 43 6f 6c 6f 72 0d 0a | 7b 7b 26 2e 6d 2e 67 78 |gColor..|{{&.m.gx|
|000002e0| 5f 65 78 70 72 3d 49 49 | 46 28 45 4d 50 54 59 28 |_expr=II|F(EMPTY(|
|000002f0| 45 58 50 52 29 2c 27 27 | 2c 65 76 6c 74 78 74 28 |EXPR),''|,evltxt(|
|00000300| 45 58 50 52 29 29 7d 7d | 0d 0a 7b 7b 26 2e 6d 2e |EXPR))}}|..{{&.m.|
|00000310| 67 78 5f 76 70 6f 73 3d | 56 50 4f 53 7d 7d 0d 0a |gx_vpos=|VPOS}}..|
|00000320| 7b 7b 26 2e 6d 2e 67 78 | 5f 68 70 6f 73 3d 48 50 |{{&.m.gx|_hpos=HP|
|00000330| 4f 53 7d 7d 0d 0a 7b 7b | 26 2e 6d 2e 67 78 5f 68 |OS}}..{{|&.m.gx_h|
|00000340| 65 69 67 68 74 3d 48 45 | 49 47 48 54 7d 7d 0d 0a |eight=HE|IGHT}}..|
|00000350| 7b 7b 26 2e 6d 2e 67 78 | 5f 77 69 64 74 68 3d 57 |{{&.m.gx|_width=W|
|00000360| 49 44 54 48 7d 7d 0d 0a | 7b 7b 26 2e 6d 2e 67 78 |IDTH}}..|{{&.m.gx|
|00000370| 5f 70 69 63 74 75 72 65 | 3d 50 49 43 54 55 52 45 |_picture|=PICTURE|
|00000380| 7d 7d 0d 0a 7b 7b 26 2e | 6d 2e 67 78 5f 64 72 61 |}}..{{&.|m.gx_dra|
|00000390| 67 3d 77 6f 72 64 73 65 | 61 72 63 68 28 27 2a 3a |g=wordse|arch('*:|
|000003a0| 44 52 41 47 27 29 7d 7d | 0d 0a 7b 7b 26 2e 6d 2e |DRAG')}}|..{{&.m.|
|000003b0| 67 78 5f 64 72 6f 70 3d | 77 6f 72 64 73 65 61 72 |gx_drop=|wordsear|
|000003c0| 63 68 28 27 2a 3a 44 52 | 4f 50 27 29 7d 7d 0d 0a |ch('*:DR|OP')}}..|
|000003d0| 7b 7b 26 2e 6d 2e 67 78 | 5f 6f 62 6a 6d 73 67 3d |{{&.m.gx|_objmsg=|
|000003e0| 77 6f 72 64 73 65 61 72 | 63 68 28 27 2a 3a 4f 42 |wordsear|ch('*:OB|
|000003f0| 4a 4d 53 47 27 29 7d 7d | 0d 0a 7b 7b 26 2e 6d 2e |JMSG')}}|..{{&.m.|
|00000400| 67 78 5f 64 72 61 67 3d | 49 49 46 28 6d 2e 67 78 |gx_drag=|IIF(m.gx|
|00000410| 5f 64 72 61 67 3d 3d 6d | 2e 6e 75 6c 6c 2c 27 27 |_drag==m|.null,''|
|00000420| 2c 6d 2e 67 78 5f 64 72 | 61 67 29 7d 7d 0d 0a 7b |,m.gx_dr|ag)}}..{|
|00000430| 7b 26 2e 6d 2e 67 78 5f | 64 72 6f 70 3d 49 49 46 |{&.m.gx_|drop=IIF|
|00000440| 28 6d 2e 67 78 5f 64 72 | 6f 70 3d 3d 6d 2e 6e 75 |(m.gx_dr|op==m.nu|
|00000450| 6c 6c 2c 27 64 70 5f 6c | 6f 6f 6b 75 70 27 2c 6d |ll,'dp_l|ookup',m|
|00000460| 2e 67 78 5f 64 72 6f 70 | 29 7d 7d 0d 0a 7b 7b 26 |.gx_drop|)}}..{{&|
|00000470| 2e 6d 2e 67 78 5f 6f 62 | 6a 6d 73 67 3d 49 49 46 |.m.gx_ob|jmsg=IIF|
|00000480| 28 6d 2e 67 78 5f 6f 62 | 6a 6d 73 67 3d 3d 6d 2e |(m.gx_ob|jmsg==m.|
|00000490| 6e 75 6c 6c 2c 27 27 2c | 6d 2e 67 78 5f 6f 62 6a |null,'',|m.gx_obj|
|000004a0| 6d 73 67 29 7d 7d 0d 0a | 7b 7b 26 2e 3d 69 6e 73 |msg)}}..|{{&.=ins|
|000004b0| 72 65 63 28 27 44 72 61 | 67 44 72 6f 70 5f 44 72 |rec('Dra|gDrop_Dr|
|000004c0| 61 67 42 75 74 74 6f 6e | 27 29 7d 7d 0d 0a 7b 7b |agButton|')}}..{{|
|000004d0| 26 2e 3d 69 6e 73 6f 62 | 6a 28 27 44 72 61 67 44 |&.=insob|j('DragD|
|000004e0| 72 6f 70 5f 44 72 61 67 | 42 75 74 74 6f 6e 27 2c |rop_Drag|Button',|
|000004f0| 2e 54 2e 29 7d 7d 0d 0a | 7b 7b 26 2e 53 4b 49 50 |.T.)}}..|{{&.SKIP|
|00000500| 7d 7d 0d 0a 7b 7b 26 2e | 52 45 50 4c 41 43 45 20 |}}..{{&.|REPLACE |
|00000510| 45 58 50 52 20 57 49 54 | 48 20 6d 2e 67 78 5f 65 |EXPR WIT|H m.gx_e|
|00000520| 78 70 72 2c 20 56 50 4f | 53 20 57 49 54 48 20 6d |xpr, VPO|S WITH m|
|00000530| 2e 67 78 5f 76 70 6f 73 | 2c 20 48 50 4f 53 20 57 |.gx_vpos|, HPOS W|
|00000540| 49 54 48 20 6d 2e 67 78 | 5f 68 70 6f 73 2c 20 48 |ITH m.gx|_hpos, H|
|00000550| 45 49 47 48 54 20 57 49 | 54 48 20 6d 2e 67 78 5f |EIGHT WI|TH m.gx_|
|00000560| 68 65 69 67 68 74 2c 20 | 57 49 44 54 48 20 57 49 |height, |WIDTH WI|
|00000570| 54 48 20 6d 2e 67 78 5f | 77 69 64 74 68 2c 20 50 |TH m.gx_|width, P|
|00000580| 52 4f 43 43 4f 44 45 20 | 57 49 54 48 20 6d 2e 67 |ROCCODE |WITH m.g|
|00000590| 78 5f 70 69 63 74 75 72 | 65 7d 7d 0d 0a 7b 7b 26 |x_pictur|e}}..{{&|
|000005a0| 2e 52 45 50 4c 41 43 45 | 20 57 48 45 4e 20 57 49 |.REPLACE| WHEN WI|
|000005b0| 54 48 20 73 74 72 74 72 | 61 6e 63 28 57 48 45 4e |TH strtr|anc(WHEN|
|000005c0| 2c 22 6d 2e 64 72 61 67 | 66 6e 63 74 3d 27 27 22 |,"m.drag|fnct=''"|
|000005d0| 2c 22 6d 2e 64 72 61 67 | 66 6e 63 74 3d 27 7b 7b |,"m.drag|fnct='{{|
|000005e0| 67 78 5f 64 72 61 67 7d | 7d 27 22 29 7d 7d 0d 0a |gx_drag}|}'")}}..|
|000005f0| 7b 7b 26 2e 52 45 50 4c | 41 43 45 20 57 48 45 4e |{{&.REPL|ACE WHEN|
|00000600| 20 57 49 54 48 20 73 74 | 72 74 72 61 6e 63 28 57 | WITH st|rtranc(W|
|00000610| 48 45 4e 2c 22 6d 2e 64 | 72 6f 70 66 6e 63 74 3d |HEN,"m.d|ropfnct=|
|00000620| 27 27 22 2c 22 6d 2e 64 | 72 6f 70 66 6e 63 74 3d |''","m.d|ropfnct=|
|00000630| 27 7b 7b 67 78 5f 64 72 | 6f 70 7d 7d 27 22 29 7d |'{{gx_dr|op}}'")}|
|00000640| 7d 0d 0a 7b 7b 26 2e 52 | 45 50 4c 41 43 45 20 57 |}..{{&.R|EPLACE W|
|00000650| 48 45 4e 20 57 49 54 48 | 20 73 74 72 74 72 61 6e |HEN WITH| strtran|
|00000660| 63 28 57 48 45 4e 2c 22 | 6d 5f 6f 62 6a 6d 73 67 |c(WHEN,"|m_objmsg|
|00000670| 3d 27 27 22 2c 22 6d 5f | 6f 62 6a 6d 73 67 3d 22 |=''","m_|objmsg="|
|00000680| 2b 27 22 27 2b 22 7b 7b | 67 78 5f 6f 62 6a 6d 73 |+'"'+"{{|gx_objms|
|00000690| 67 7d 7d 22 2b 27 22 27 | 29 7d 7d 0d 0a 7b 7b 26 |g}}"+'"'|)}}..{{&|
|000006a0| 2e 53 4b 49 50 20 2d 31 | 7d 7d 0d 0a 00 00 00 00 |.SKIP -1|}}......|
|000006b0| 00 00 00 00 00 00 00 01 | 00 00 00 0d 4d 53 20 53 |........|....MS S|
|000006c0| 61 6e 73 20 53 65 72 69 | 66 00 00 00 00 00 00 00 |ans Seri|f.......|
|000006d0| 00 00 00 00 00 00 00 00 | 01 00 00 00 12 44 72 61 |........|.....Dra|
|000006e0| 67 44 72 6f 70 5f 44 72 | 61 67 43 6f 6c 6f 72 00 |gDrop_Dr|agColor.|
|000006f0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 25 2a 3a |........|.....%*:|
|00000700| 44 45 46 4f 42 4a 20 44 | 72 61 67 44 72 6f 70 5f |DEFOBJ D|ragDrop_|
|00000710| 44 72 61 67 43 6f 6c 6f | 72 0d 0a 2a 3a 33 44 20 |DragColo|r..*:3D |
|00000720| 34 0d 0a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |4.......|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0d |........|........|
|00000740| 4d 53 20 53 61 6e 73 20 | 53 65 72 69 66 00 00 00 |MS Sans |Serif...|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000760| 0d 4d 53 20 53 61 6e 73 | 20 53 65 72 69 66 00 00 |.MS Sans| Serif..|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000780| 00 0c 6d 2e 64 72 61 67 | 62 75 74 74 6f 6e 00 00 |..m.drag|button..|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000007a0| 00 00 1e 2a 3a 44 45 46 | 4f 42 4a 20 44 72 61 67 |...*:DEF|OBJ Drag|
|000007b0| 44 72 6f 70 5f 44 72 61 | 67 42 75 74 74 6f 6e 0d |Drop_Dra|gButton.|
|000007c0| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 01 00 00 00 08 22 40 2a | 49 56 4e 20 22 00 00 00 |....."@*|IVN "...|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 01 00 00 04 e5 7b 7b | 26 2e 6d 2e 67 78 5f 63 |......{{|&.m.gx_c|
|00000810| 6f 64 65 3d 22 40 20 30 | 2c 30 20 53 41 59 20 22 |ode="@ 0|,0 SAY "|
|00000820| 2b 49 49 46 28 45 4d 50 | 54 59 28 50 52 4f 43 43 |+IIF(EMP|TY(PROCC|
|00000830| 4f 44 45 29 2c 45 58 50 | 52 2b 22 20 46 4f 4e 54 |ODE),EXP|R+" FONT|
|00000840| 20 27 4d 53 20 53 61 6e | 73 20 53 65 72 69 66 27 | 'MS San|s Serif'|
|00000850| 2c 38 20 43 4f 4c 4f 52 | 20 52 47 42 28 2c 2c 2c |,8 COLOR| RGB(,,,|
|00000860| 32 35 35 2c 32 35 35 2c | 32 35 35 29 22 2c 49 49 |255,255,|255)",II|
|00000870| 46 28 27 3a 27 24 50 52 | 4f 43 43 4f 44 45 2c 22 |F(':'$PR|OCCODE,"|
|00000880| 22 2c 22 27 43 3a 27 2b | 22 29 2b 50 52 4f 43 43 |","'C:'+|")+PROCC|
|00000890| 4f 44 45 2b 22 20 42 49 | 54 4d 41 50 20 53 49 5a |ODE+" BI|TMAP SIZ|
|000008a0| 45 20 22 2b 41 4c 4c 54 | 52 49 4d 28 53 54 52 28 |E "+ALLT|RIM(STR(|
|000008b0| 48 45 49 47 48 54 2c 37 | 2c 33 29 29 2b 22 2c 22 |HEIGHT,7|,3))+","|
|000008c0| 2b 41 4c 4c 54 52 49 4d | 28 53 54 52 28 57 49 44 |+ALLTRIM|(STR(WID|
|000008d0| 54 48 2c 37 2c 33 29 29 | 2b 22 20 49 53 4f 4d 45 |TH,7,3))|+" ISOME|
|000008e0| 54 52 49 43 22 29 7d 7d | 0d 0a 0d 0a 50 52 49 56 |TRIC")}}|....PRIV|
|000008f0| 41 54 45 20 6d 2e 77 69 | 6e 6e 61 6d 65 2c 6d 2e |ATE m.wi|nname,m.|
|00000900| 64 72 61 67 66 6e 63 74 | 2c 6d 2e 64 72 6f 70 66 |dragfnct|,m.dropf|
|00000910| 6e 63 74 2c 6d 5f 6f 62 | 6a 6d 73 67 2c 6d 2e 6d |nct,m_ob|jmsg,m.m|
|00000920| 5f 72 6f 77 2c 6d 2e 6d | 5f 63 6f 6c 0d 0a 0d 0a |_row,m.m|_col....|
|00000930| 49 46 20 2e 4e 4f 54 2e | 4d 44 4f 57 4e 28 29 0d |IF .NOT.|MDOWN().|
|00000940| 0a 20 20 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 45 |.  RETUR|N .F...E|
|00000950| 4e 44 49 46 0d 0a 6d 2e | 77 69 6e 6e 61 6d 65 3d |NDIF..m.|winname=|
|00000960| 27 7b 7b 6d 2e 6e 61 6d | 65 7d 7d 27 0d 0a 6d 2e |'{{m.nam|e}}'..m.|
|00000970| 6d 5f 72 6f 77 3d 4d 52 | 4f 57 28 6d 2e 77 69 6e |m_row=MR|OW(m.win|
|00000980| 6e 61 6d 65 29 0d 0a 6d | 2e 6d 5f 63 6f 6c 3d 4d |name)..m|.m_col=M|
|00000990| 43 4f 4c 28 6d 2e 77 69 | 6e 6e 61 6d 65 29 0d 0a |COL(m.wi|nname)..|
|000009a0| 6d 2e 64 72 61 67 66 6e | 63 74 3d 27 27 0d 0a 6d |m.dragfn|ct=''..m|
|000009b0| 2e 64 72 6f 70 66 6e 63 | 74 3d 27 27 0d 0a 6d 5f |.dropfnc|t=''..m_|
|000009c0| 6f 62 6a 6d 73 67 3d 27 | 27 0d 0a 44 4f 20 57 48 |objmsg='|'..DO WH|
|000009d0| 49 4c 45 20 4d 44 4f 57 | 4e 28 29 2e 41 4e 44 2e |ILE MDOW|N().AND.|
|000009e0| 6d 2e 6d 5f 72 6f 77 3d | 4d 52 4f 57 28 6d 2e 77 |m.m_row=|MROW(m.w|
|000009f0| 69 6e 6e 61 6d 65 29 2e | 41 4e 44 2e 6d 2e 6d 5f |inname).|AND.m.m_|
|00000a00| 63 6f 6c 3d 4d 43 4f 4c | 28 6d 2e 77 69 6e 6e 61 |col=MCOL|(m.winna|
|00000a10| 6d 65 29 0d 0a 45 4e 44 | 44 4f 0d 0a 49 46 20 2e |me)..END|DO..IF .|
|00000a20| 4e 4f 54 2e 4d 44 4f 57 | 4e 28 29 0d 0a 20 20 52 |NOT.MDOW|N()..  R|
|00000a30| 45 54 55 52 4e 20 2e 46 | 2e 0d 0a 45 4e 44 49 46 |ETURN .F|...ENDIF|
|00000a40| 0d 0a 44 4f 20 57 48 49 | 4c 45 20 4d 44 4f 57 4e |..DO WHI|LE MDOWN|
|00000a50| 28 29 0d 0a 20 20 6d 2e | 6d 5f 72 6f 77 3d 4d 52 |()..  m.|m_row=MR|
|00000a60| 4f 57 28 6d 2e 77 69 6e | 6e 61 6d 65 29 0d 0a 20 |OW(m.win|name).. |
|00000a70| 20 6d 2e 6d 5f 63 6f 6c | 3d 4d 43 4f 4c 28 6d 2e | m.m_col|=MCOL(m.|
|00000a80| 77 69 6e 6e 61 6d 65 29 | 0d 0a 20 20 49 46 20 2e |winname)|..  IF .|
|00000a90| 4e 4f 54 2e 57 45 58 49 | 53 54 28 27 77 5f 64 72 |NOT.WEXI|ST('w_dr|
|00000aa0| 61 67 27 29 0d 0a 20 20 | 20 20 44 45 46 49 4e 45 |ag')..  |  DEFINE|
|00000ab0| 20 57 49 4e 44 4f 57 20 | 77 5f 64 72 61 67 20 46 | WINDOW |w_drag F|
|00000ac0| 52 4f 4d 20 30 2c 30 20 | 54 4f 20 7b 7b 48 45 49 |ROM 0,0 |TO {{HEI|
|00000ad0| 47 48 54 7d 7d 2c 7b 7b | 57 49 44 54 48 7d 7d 3b |GHT}},{{|WIDTH}};|
|00000ae0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00000af0| 20 20 20 20 49 4e 20 57 | 49 4e 44 4f 57 20 28 6d |    IN W|INDOW (m|
|00000b00| 2e 77 69 6e 6e 61 6d 65 | 29 20 4e 4f 4e 45 20 46 |.winname|) NONE F|
|00000b10| 4f 4e 54 20 27 4d 53 20 | 53 61 6e 73 20 53 65 72 |ONT 'MS |Sans Ser|
|00000b20| 69 66 27 2c 38 3b 0d 0a | 20 20 20 20 20 20 20 20 |if',8;..|        |
|00000b30| 20 20 20 20 20 20 20 20 | 20 20 43 4f 4c 4f 52 20 |        |  COLOR |
|00000b40| 52 47 42 28 2c 2c 2c 31 | 39 32 2c 31 39 32 2c 31 |RGB(,,,1|92,192,1|
|00000b50| 39 32 29 0d 0a 20 20 20 | 20 41 43 54 49 56 41 54 |92)..   | ACTIVAT|
|00000b60| 45 20 57 49 4e 44 4f 57 | 20 77 5f 64 72 61 67 20 |E WINDOW| w_drag |
|00000b70| 4e 4f 53 48 4f 57 0d 0a | 20 20 20 20 7b 7b 6d 2e |NOSHOW..|    {{m.|
|00000b80| 67 78 5f 63 6f 64 65 7d | 7d 0d 0a 20 20 20 20 4d |gx_code}|}..    M|
|00000b90| 4f 56 45 20 57 49 4e 44 | 4f 57 20 77 5f 64 72 61 |OVE WIND|OW w_dra|
|00000ba0| 67 20 54 4f 20 6d 2e 6d | 5f 72 6f 77 2c 6d 2e 6d |g TO m.m|_row,m.m|
|00000bb0| 5f 63 6f 6c 0d 0a 20 20 | 20 20 41 43 54 49 56 41 |_col..  |  ACTIVA|
|00000bc0| 54 45 20 57 49 4e 44 20 | 77 5f 64 72 61 67 0d 0a |TE WIND |w_drag..|
|00000bd0| 20 20 45 4e 44 49 46 0d | 0a 20 20 4d 4f 56 45 20 |  ENDIF.|.  MOVE |
|00000be0| 57 49 4e 44 4f 57 20 77 | 5f 64 72 61 67 20 54 4f |WINDOW w|_drag TO|
|00000bf0| 20 6d 2e 6d 5f 72 6f 77 | 2c 6d 2e 6d 5f 63 6f 6c | m.m_row|,m.m_col|
|00000c00| 0d 0a 20 20 49 46 20 2e | 4e 4f 54 2e 45 4d 50 54 |..  IF .|NOT.EMPT|
|00000c10| 59 28 6d 2e 64 72 61 67 | 66 6e 63 74 29 0d 0a 20 |Y(m.drag|fnct).. |
|00000c20| 20 20 20 44 4f 20 28 6d | 2e 64 72 61 67 66 6e 63 |   DO (m|.dragfnc|
|00000c30| 74 29 20 57 49 54 48 20 | 28 6d 2e 6d 5f 72 6f 77 |t) WITH |(m.m_row|
|00000c40| 29 2c 28 6d 2e 6d 5f 63 | 6f 6c 29 2c 28 6d 5f 6f |),(m.m_c|ol),(m_o|
|00000c50| 62 6a 6d 73 67 29 0d 0a | 20 20 45 4e 44 49 46 0d |bjmsg)..|  ENDIF.|
|00000c60| 0a 45 4e 44 44 4f 0d 0a | 52 45 4c 45 41 53 45 20 |.ENDDO..|RELEASE |
|00000c70| 57 49 4e 44 4f 57 20 77 | 5f 64 72 61 67 0d 0a 49 |WINDOW w|_drag..I|
|00000c80| 46 20 45 4d 50 54 59 28 | 6d 2e 64 72 6f 70 66 6e |F EMPTY(|m.dropfn|
|00000c90| 63 74 29 0d 0a 20 20 52 | 45 54 55 52 4e 20 2e 46 |ct)..  R|ETURN .F|
|00000ca0| 2e 0d 0a 45 4e 44 49 46 | 0d 0a 44 4f 20 28 6d 2e |...ENDIF|..DO (m.|
|00000cb0| 64 72 6f 70 66 6e 63 74 | 29 20 57 49 54 48 20 28 |dropfnct|) WITH (|
|00000cc0| 6d 2e 6d 5f 72 6f 77 29 | 2c 28 6d 2e 6d 5f 63 6f |m.m_row)|,(m.m_co|
|00000cd0| 6c 29 2c 28 6d 5f 6f 62 | 6a 6d 73 67 29 0d 0a 52 |l),(m_ob|jmsg)..R|
|00000ce0| 45 54 55 52 4e 20 2e 46 | 2e 0d 0a 00 00 00 00 00 |ETURN .F|........|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 00 00 00 00 00 00 | 01 00 00 00 0d 4d 53 20 |........|.....MS |
|00000d10| 53 61 6e 73 20 53 65 72 | 69 66 00 00 00 00 00 00 |Sans Ser|if......|
|00000d20| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0e 53 6c |........|......Sl|
|00000d30| 69 64 65 72 5f 43 6f 6e | 74 72 6f 6c 00 00 00 00 |ider_Con|trol....|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 03 5c 2a |........|......\*|
|00000d50| 3a 44 45 46 4f 42 4a 20 | 53 6c 69 64 65 72 5f 43 |:DEFOBJ |Slider_C|
|00000d60| 6f 6e 74 72 6f 6c 0d 0a | 7b 7b 26 2e 6d 2e 67 78 |ontrol..|{{&.m.gx|
|00000d70| 5f 76 70 6f 73 3d 56 50 | 4f 53 7d 7d 0d 0a 7b 7b |_vpos=VP|OS}}..{{|
|00000d80| 26 2e 6d 2e 67 78 5f 68 | 70 6f 73 3d 48 50 4f 53 |&.m.gx_h|pos=HPOS|
|00000d90| 7d 7d 0d 0a 7b 7b 26 2e | 6d 2e 67 78 5f 68 65 69 |}}..{{&.|m.gx_hei|
|00000da0| 67 68 74 3d 48 45 49 47 | 48 54 7d 7d 0d 0a 7b 7b |ght=HEIG|HT}}..{{|
|00000db0| 26 2e 6d 2e 67 78 5f 77 | 69 64 74 68 3d 57 49 44 |&.m.gx_w|idth=WID|
|00000dc0| 54 48 7d 7d 0d 0a 7b 7b | 26 2e 3d 69 6e 73 72 65 |TH}}..{{|&.=insre|
|00000dd0| 63 28 29 7d 7d 0d 0a 7b | 7b 26 2e 52 45 50 4c 41 |c()}}..{|{&.REPLA|
|00000de0| 43 45 20 4f 42 4a 54 59 | 50 45 20 57 49 54 48 20 |CE OBJTY|PE WITH |
|00000df0| 37 2c 20 56 50 4f 53 20 | 57 49 54 48 20 6d 2e 67 |7, VPOS |WITH m.g|
|00000e00| 78 5f 76 70 6f 73 2c 20 | 48 50 4f 53 20 57 49 54 |x_vpos, |HPOS WIT|
|00000e10| 48 20 6d 2e 67 78 5f 68 | 70 6f 73 2c 20 48 45 49 |H m.gx_h|pos, HEI|
|00000e20| 47 48 54 20 57 49 54 48 | 20 2e 37 35 2a 6d 2e 67 |GHT WITH| .75*m.g|
|00000e30| 78 5f 68 65 69 67 68 74 | 2c 20 57 49 44 54 48 20 |x_height|, WIDTH |
|00000e40| 57 49 54 48 20 6d 2e 67 | 78 5f 77 69 64 74 68 2c |WITH m.g|x_width,|
|00000e50| 20 43 4f 4d 4d 45 4e 54 | 20 57 49 54 48 20 27 2a | COMMENT| WITH '*|
|00000e60| 3a 33 44 20 32 20 42 4f | 58 27 7d 7d 0d 0a 7b 7b |:3D 2 BO|X'}}..{{|
|00000e70| 26 2e 3d 69 6e 73 72 65 | 63 28 29 7d 7d 0d 0a 7b |&.=insre|c()}}..{|
|00000e80| 7b 26 2e 52 45 50 4c 41 | 43 45 20 45 58 50 52 20 |{&.REPLA|CE EXPR |
|00000e90| 57 49 54 48 20 22 27 63 | 3a 5c 66 6f 78 70 72 6f |WITH "'c|:\foxpro|
|00000ea0| 77 5c 67 6f 6f 64 69 65 | 73 5c 62 69 74 6d 61 70 |w\goodie|s\bitmap|
|00000eb0| 73 5c 61 72 72 6f 77 73 | 5c 61 72 77 30 31 64 6e |s\arrows|\arw01dn|
|00000ec0| 2e 62 6d 70 27 22 2c 20 | 56 50 4f 53 20 57 49 54 |.bmp'", |VPOS WIT|
|00000ed0| 48 20 6d 2e 67 78 5f 76 | 70 6f 73 2b 2e 35 2c 20 |H m.gx_v|pos+.5, |
|00000ee0| 48 50 4f 53 20 57 49 54 | 48 20 6d 2e 67 78 5f 68 |HPOS WIT|H m.gx_h|
|00000ef0| 70 6f 73 2b 2e 35 2c 20 | 48 45 49 47 48 54 20 57 |pos+.5, |HEIGHT W|
|00000f00| 49 54 48 20 6d 2e 67 78 | 5f 68 65 69 67 68 74 2c |ITH m.gx|_height,|
|00000f10| 20 57 49 44 54 48 20 57 | 49 54 48 20 6d 2e 67 78 | WIDTH W|ITH m.gx|
|00000f20| 5f 77 69 64 74 68 2c 20 | 43 4f 4d 4d 45 4e 54 20 |_width, |COMMENT |
|00000f30| 57 49 54 48 20 27 2a 3a | 4e 4f 33 44 27 7d 7d 0d |WITH '*:|NO3D'}}.|
|00000f40| 0a 7b 7b 26 2e 3d 69 6e | 73 74 78 74 31 28 22 6d |.{{&.=in|stxt1("m|
|00000f50| 2e 63 6f 6c 31 3d 4d 49 | 4e 28 4d 41 58 28 6d 2e |.col1=MI|N(MAX(m.|
|00000f60| 63 6f 6c 31 2c 30 29 2c | 7b 7b 57 49 44 54 48 2d |col1,0),|{{WIDTH-|
|00000f70| 48 45 49 47 48 54 2d 32 | 7d 7d 29 22 2b 6d 2e 63 |HEIGHT-2|}})"+m.c|
|00000f80| 72 5f 6c 66 2b 22 40 20 | 7b 7b 56 50 4f 53 7d 7d |r_lf+"@ |{{VPOS}}|
|00000f90| 2c 7b 7b 48 50 4f 53 7d | 7d 2b 6d 2e 63 6f 6c 31 |,{{HPOS}|}+m.col1|
|00000fa0| 20 53 41 59 20 7b 7b 45 | 58 50 52 7d 7d 20 42 49 | SAY {{E|XPR}} BI|
|00000fb0| 54 4d 41 50 20 53 49 5a | 45 20 7b 7b 48 45 49 47 |TMAP SIZ|E {{HEIG|
|00000fc0| 48 54 7d 7d 2c 7b 7b 48 | 45 49 47 48 54 7d 7d 20 |HT}},{{H|EIGHT}} |
|00000fd0| 49 53 4f 4d 45 54 52 49 | 43 22 29 7d 7d 0d 0a 7b |ISOMETRI|C")}}..{|
|00000fe0| 7b 26 2e 3d 69 6e 73 72 | 65 63 28 29 7d 7d 0d 0a |{&.=insr|ec()}}..|
|00000ff0| 7b 7b 26 2e 52 45 50 4c | 41 43 45 20 45 58 50 52 |{{&.REPL|ACE EXPR|
|00001000| 20 57 49 54 48 20 22 27 | 22 2b 52 45 50 4c 49 43 | WITH "'|"+REPLIC|
|00001010| 41 54 45 28 27 7c 2d 2d | 2d 2d 2d 27 2c 49 4e 54 |ATE('|--|---',INT|
|00001020| 28 6d 2e 67 78 5f 77 69 | 64 74 68 2f 37 29 29 2b |(m.gx_wi|dth/7))+|
|00001030| 22 7c 27 22 2c 20 56 50 | 4f 53 20 57 49 54 48 20 |"|'", VP|OS WITH |
|00001040| 6d 2e 67 78 5f 76 70 6f | 73 2b 2e 37 35 2a 6d 2e |m.gx_vpo|s+.75*m.|
|00001050| 67 78 5f 68 65 69 67 68 | 74 2c 20 48 50 4f 53 20 |gx_heigh|t, HPOS |
|00001060| 57 49 54 48 20 6d 2e 67 | 78 5f 68 70 6f 73 2c 20 |WITH m.g|x_hpos, |
|00001070| 43 4f 4d 4d 45 4e 54 20 | 57 49 54 48 20 27 2a 3a |COMMENT |WITH '*:|
|00001080| 4e 4f 53 49 5a 45 27 2b | 6d 2e 63 72 5f 6c 66 2b |NOSIZE'+|m.cr_lf+|
|00001090| 27 2a 3a 4e 4f 33 44 27 | 7d 7d 0d 0a 7b 7b 26 2e |'*:NO3D'|}}..{{&.|
|000010a0| 53 4b 49 50 20 2d 33 7d | 7d 0d 0a 00 00 00 00 00 |SKIP -3}|}.......|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 01 00 00 | 00 08 22 40 2a 49 56 4e |........|.."@*IVN|
|000010d0| 20 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 | "......|........|
|000010e0| 00 00 00 00 00 00 01 00 | 00 02 be 7b 7b 26 2e 53 |........|...{{&.S|
|000010f0| 4b 49 50 20 32 7d 7d 0d | 0a 7b 7b 26 2e 6d 2e 67 |KIP 2}}.|.{{&.m.g|
|00001100| 78 5f 63 6f 64 65 3d 22 | 40 20 22 2b 6f 62 6a 70 |x_code="|@ "+objp|
|00001110| 6f 73 28 29 2b 22 2b 6d | 2e 63 6f 6c 31 20 43 4c |os()+"+m|.col1 CL|
|00001120| 45 41 52 20 54 4f 20 22 | 2b 53 54 52 28 56 50 4f |EAR TO "|+STR(VPO|
|00001130| 53 2b 2e 35 2a 48 45 49 | 47 48 54 2d 2e 32 2c 37 |S+.5*HEI|GHT-.2,7|
|00001140| 2c 33 29 2b 22 2c 22 2b | 53 54 52 28 48 50 4f 53 |,3)+","+|STR(HPOS|
|00001150| 2b 48 45 49 47 48 54 2c | 37 2c 33 29 2b 22 2b 6d |+HEIGHT,|7,3)+"+m|
|00001160| 2e 63 6f 6c 31 22 2b 6d | 2e 63 72 2b 6c 66 2b 22 |.col1"+m|.cr+lf+"|
|00001170| 20 20 6d 2e 63 6f 6c 31 | 3d 6d 2e 73 6c 69 64 65 |  m.col1|=m.slide|
|00001180| 72 5f 76 61 6c 22 2b 6d | 2e 63 72 5f 6c 66 2b 22 |r_val"+m|.cr_lf+"|
|00001190| 20 20 40 20 22 2b 6f 62 | 6a 70 6f 73 28 29 2b 22 |  @ "+ob|jpos()+"|
|000011a0| 2b 6d 2e 63 6f 6c 31 20 | 53 41 59 20 22 2b 49 49 |+m.col1 |SAY "+II|
|000011b0| 46 28 27 3a 27 24 45 58 | 50 52 2c 22 22 2c 22 27 |F(':'$EX|PR,"","'|
|000011c0| 43 3a 27 2b 22 29 2b 4d | 4c 49 4e 45 28 45 58 50 |C:'+")+M|LINE(EXP|
|000011d0| 52 2c 31 29 2b 22 20 42 | 49 54 4d 41 50 20 53 49 |R,1)+" B|ITMAP SI|
|000011e0| 5a 45 20 22 2b 53 54 52 | 28 48 45 49 47 48 54 2c |ZE "+STR|(HEIGHT,|
|000011f0| 37 2c 33 29 2b 22 2c 22 | 2b 53 54 52 28 48 45 49 |7,3)+","|+STR(HEI|
|00001200| 47 48 54 2c 37 2c 33 29 | 2b 22 20 49 53 4f 4d 45 |GHT,7,3)|+" ISOME|
|00001210| 54 52 49 43 22 7d 7d 0d | 0a 7b 7b 26 2e 53 4b 49 |TRIC"}}.|.{{&.SKI|
|00001220| 50 20 2d 32 7d 7d 0d 0a | 0d 0a 50 52 49 56 41 54 |P -2}}..|..PRIVAT|
|00001230| 45 20 6d 2e 6d 63 6f 6c | 2c 6d 2e 6d 63 6f 6c 5f |E m.mcol|,m.mcol_|
|00001240| 6c 61 73 74 2c 6d 2e 73 | 6c 69 64 65 72 5f 76 61 |last,m.s|lider_va|
|00001250| 6c 0d 0a 0d 0a 49 46 20 | 2e 4e 4f 54 2e 4d 44 4f |l....IF |.NOT.MDO|
|00001260| 57 4e 28 29 2e 4f 52 2e | 2e 4e 4f 54 2e 42 45 54 |WN().OR.|.NOT.BET|
|00001270| 57 45 45 4e 28 4d 52 4f | 57 28 29 2c 7b 7b 56 50 |WEEN(MRO|W(),{{VP|
|00001280| 4f 53 7d 7d 2c 7b 7b 56 | 50 4f 53 2b 2e 37 35 2a |OS}},{{V|POS+.75*|
|00001290| 48 45 49 47 48 54 7d 7d | 29 0d 0a 20 20 52 45 54 |HEIGHT}}|)..  RET|
|000012a0| 55 52 4e 20 2e 46 2e 0d | 0a 45 4e 44 49 46 0d 0a |URN .F..|.ENDIF..|
|000012b0| 6d 2e 6d 63 6f 6c 5f 6c | 61 73 74 3d 2d 32 0d 0a |m.mcol_l|ast=-2..|
|000012c0| 44 4f 20 57 48 49 4c 45 | 20 4d 44 4f 57 4e 28 29 |DO WHILE| MDOWN()|
|000012d0| 0d 0a 20 20 6d 2e 6d 63 | 6f 6c 3d 49 4e 54 28 4d |..  m.mc|ol=INT(M|
|000012e0| 49 4e 28 4d 41 58 28 4d | 43 4f 4c 28 29 2c 7b 7b |IN(MAX(M|COL(),{{|
|000012f0| 48 50 4f 53 7d 7d 29 2c | 7b 7b 48 50 4f 53 2b 57 |HPOS}}),|{{HPOS+W|
|00001300| 49 44 54 48 2d 48 45 49 | 47 48 54 2d 32 7d 7d 29 |IDTH-HEI|GHT-2}})|
|00001310| 29 0d 0a 20 20 49 46 20 | 6d 2e 6d 63 6f 6c 3d 6d |)..  IF |m.mcol=m|
|00001320| 2e 6d 63 6f 6c 5f 6c 61 | 73 74 2e 4f 52 2e 4d 43 |.mcol_la|st.OR.MC|
|00001330| 4f 4c 28 29 3c 30 0d 0a | 20 20 20 20 4c 4f 4f 50 |OL()<0..|    LOOP|
|00001340| 0d 0a 20 20 45 4e 44 49 | 46 0d 0a 20 20 6d 2e 6d |..  ENDI|F..  m.m|
|00001350| 63 6f 6c 5f 6c 61 73 74 | 3d 6d 2e 6d 63 6f 6c 0d |col_last|=m.mcol.|
|00001360| 0a 20 20 6d 2e 73 6c 69 | 64 65 72 5f 76 61 6c 3d |.  m.sli|der_val=|
|00001370| 6d 2e 6d 63 6f 6c 2d 7b | 7b 48 50 4f 53 7d 7d 2b |m.mcol-{|{HPOS}}+|
|00001380| 31 0d 0a 20 20 7b 7b 6d | 2e 67 78 5f 63 6f 64 65 |1..  {{m|.gx_code|
|00001390| 7d 7d 0d 0a 45 4e 44 44 | 4f 0d 0a 52 45 54 55 52 |}}..ENDD|O..RETUR|
|000013a0| 4e 20 2e 46 2e 0d 0a 0d | 0a 00 00 00 00 00 00 00 |N .F....|........|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000013c0| 0d 4d 53 20 53 61 6e 73 | 20 53 65 72 69 66 00 00 |.MS Sans| Serif..|
|000013d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000013e0| 00 0f 53 6c 69 64 65 72 | 5f 43 6f 6e 74 72 6f 6c |..Slider|_Control|
|000013f0| 32 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |2.......|........|
|00001400| 00 03 77 2a 3a 44 45 46 | 4f 42 4a 20 53 6c 69 64 |..w*:DEF|OBJ Slid|
|00001410| 65 72 5f 43 6f 6e 74 72 | 6f 6c 32 0d 0a 7b 7b 26 |er_Contr|ol2..{{&|
|00001420| 2e 6d 2e 67 78 5f 76 70 | 6f 73 3d 56 50 4f 53 7d |.m.gx_vp|os=VPOS}|
|00001430| 7d 0d 0a 7b 7b 26 2e 6d | 2e 67 78 5f 68 70 6f 73 |}..{{&.m|.gx_hpos|
|00001440| 3d 48 50 4f 53 7d 7d 0d | 0a 7b 7b 26 2e 6d 2e 67 |=HPOS}}.|.{{&.m.g|
|00001450| 78 5f 68 65 69 67 68 74 | 3d 48 45 49 47 48 54 7d |x_height|=HEIGHT}|
|00001460| 7d 0d 0a 7b 7b 26 2e 6d | 2e 67 78 5f 77 69 64 74 |}..{{&.m|.gx_widt|
|00001470| 68 3d 57 49 44 54 48 7d | 7d 0d 0a 7b 7b 26 2e 3d |h=WIDTH}|}..{{&.=|
|00001480| 69 6e 73 72 65 63 28 29 | 7d 7d 0d 0a 7b 7b 26 2e |insrec()|}}..{{&.|
|00001490| 52 45 50 4c 41 43 45 20 | 4f 42 4a 54 59 50 45 20 |REPLACE |OBJTYPE |
|000014a0| 57 49 54 48 20 37 2c 20 | 56 50 4f 53 20 57 49 54 |WITH 7, |VPOS WIT|
|000014b0| 48 20 6d 2e 67 78 5f 76 | 70 6f 73 2c 20 48 50 4f |H m.gx_v|pos, HPO|
|000014c0| 53 20 57 49 54 48 20 6d | 2e 67 78 5f 68 70 6f 73 |S WITH m|.gx_hpos|
|000014d0| 2c 20 48 45 49 47 48 54 | 20 57 49 54 48 20 2e 37 |, HEIGHT| WITH .7|
|000014e0| 35 2a 6d 2e 67 78 5f 68 | 65 69 67 68 74 2c 20 57 |5*m.gx_h|eight, W|
|000014f0| 49 44 54 48 20 57 49 54 | 48 20 6d 2e 67 78 5f 77 |IDTH WIT|H m.gx_w|
|00001500| 69 64 74 68 2c 20 43 4f | 4d 4d 45 4e 54 20 57 49 |idth, CO|MMENT WI|
|00001510| 54 48 20 27 2a 3a 33 44 | 20 32 20 42 4f 58 20 52 |TH '*:3D| 2 BOX R|
|00001520| 45 46 52 45 53 48 27 7d | 7d 0d 0a 7b 7b 26 2e 3d |EFRESH'}|}..{{&.=|
|00001530| 69 6e 73 72 65 63 28 29 | 7d 7d 0d 0a 7b 7b 26 2e |insrec()|}}..{{&.|
|00001540| 52 45 50 4c 41 43 45 20 | 45 58 50 52 20 57 49 54 |REPLACE |EXPR WIT|
|00001550| 48 20 22 27 63 3a 5c 66 | 6f 78 70 72 6f 77 5c 67 |H "'c:\f|oxprow\g|
|00001560| 6f 6f 64 69 65 73 5c 62 | 69 74 6d 61 70 73 5c 61 |oodies\b|itmaps\a|
|00001570| 72 72 6f 77 73 5c 61 72 | 77 30 31 64 6e 2e 62 6d |rrows\ar|w01dn.bm|
|00001580| 70 27 22 2c 20 56 50 4f | 53 20 57 49 54 48 20 6d |p'", VPO|S WITH m|
|00001590| 2e 67 78 5f 76 70 6f 73 | 2b 2e 35 2c 20 48 50 4f |.gx_vpos|+.5, HPO|
|000015a0| 53 20 57 49 54 48 20 6d | 2e 67 78 5f 68 70 6f 73 |S WITH m|.gx_hpos|
|000015b0| 2b 2e 35 2c 20 48 45 49 | 47 48 54 20 57 49 54 48 |+.5, HEI|GHT WITH|
|000015c0| 20 6d 2e 67 78 5f 68 65 | 69 67 68 74 2c 20 57 49 | m.gx_he|ight, WI|
|000015d0| 44 54 48 20 57 49 54 48 | 20 6d 2e 67 78 5f 77 69 |DTH WITH| m.gx_wi|
|000015e0| 64 74 68 2c 20 52 45 46 | 52 45 53 48 20 57 49 54 |dth, REF|RESH WIT|
|000015f0| 48 20 2e 54 2e 2c 20 43 | 4f 4d 4d 45 4e 54 20 57 |H .T., C|OMMENT W|
|00001600| 49 54 48 20 27 2a 3a 4e | 4f 33 44 27 7d 7d 0d 0a |ITH '*:N|O3D'}}..|
|00001610| 7b 7b 26 2e 3d 69 6e 73 | 74 78 74 31 28 22 6d 2e |{{&.=ins|txt1("m.|
|00001620| 63 6f 6c 33 3d 4d 49 4e | 28 4d 41 58 28 6d 2e 63 |col3=MIN|(MAX(m.c|
|00001630| 6f 6c 33 2c 30 29 2c 7b | 7b 57 49 44 54 48 2d 48 |ol3,0),{|{WIDTH-H|
|00001640| 45 49 47 48 54 2d 31 7d | 7d 29 22 2b 6d 2e 63 72 |EIGHT-1}|})"+m.cr|
|00001650| 5f 6c 66 2b 22 40 20 7b | 7b 56 50 4f 53 7d 7d 2c |_lf+"@ {|{VPOS}},|
|00001660| 7b 7b 48 50 4f 53 7d 7d | 2b 6d 2e 63 6f 6c 33 20 |{{HPOS}}|+m.col3 |
|00001670| 53 41 59 20 7b 7b 45 58 | 50 52 7d 7d 20 42 49 54 |SAY {{EX|PR}} BIT|
|00001680| 4d 41 50 20 53 49 5a 45 | 20 7b 7b 48 45 49 47 48 |MAP SIZE| {{HEIGH|
|00001690| 54 7d 7d 2c 7b 7b 48 45 | 49 47 48 54 7d 7d 20 49 |T}},{{HE|IGHT}} I|
|000016a0| 53 4f 4d 45 54 52 49 43 | 22 29 7d 7d 0d 0a 7b 7b |SOMETRIC|")}}..{{|
|000016b0| 26 2e 3d 69 6e 73 72 65 | 63 28 29 7d 7d 0d 0a 7b |&.=insre|c()}}..{|
|000016c0| 7b 26 2e 52 45 50 4c 41 | 43 45 20 45 58 50 52 20 |{&.REPLA|CE EXPR |
|000016d0| 57 49 54 48 20 22 27 22 | 2b 52 45 50 4c 49 43 41 |WITH "'"|+REPLICA|
|000016e0| 54 45 28 27 7c 2d 2d 2d | 2d 2d 27 2c 49 4e 54 28 |TE('|---|--',INT(|
|000016f0| 6d 2e 67 78 5f 77 69 64 | 74 68 2f 37 29 29 2b 22 |m.gx_wid|th/7))+"|
|00001700| 7c 27 22 2c 20 56 50 4f | 53 20 57 49 54 48 20 6d ||'", VPO|S WITH m|
|00001710| 2e 67 78 5f 76 70 6f 73 | 2b 2e 37 35 2a 6d 2e 67 |.gx_vpos|+.75*m.g|
|00001720| 78 5f 68 65 69 67 68 74 | 2c 20 48 50 4f 53 20 57 |x_height|, HPOS W|
|00001730| 49 54 48 20 6d 2e 67 78 | 5f 68 70 6f 73 2c 20 43 |ITH m.gx|_hpos, C|
|00001740| 4f 4d 4d 45 4e 54 20 57 | 49 54 48 20 27 2a 3a 4e |OMMENT W|ITH '*:N|
|00001750| 4f 53 49 5a 45 27 2b 6d | 2e 63 72 5f 6c 66 2b 27 |OSIZE'+m|.cr_lf+'|
|00001760| 2a 3a 4e 4f 33 44 27 7d | 7d 0d 0a 7b 7b 26 2e 53 |*:NO3D'}|}..{{&.S|
|00001770| 4b 49 50 20 2d 33 7d 7d | 0d 0a 00 00 00 00 00 00 |KIP -3}}|........|
|00001780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001790| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 08 22 |........|......."|
|000017a0| 40 2a 49 56 4e 20 22 00 | 00 00 00 00 00 00 00 00 |@*IVN ".|........|
|000017b0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 01 a9 |........|........|
|000017c0| 50 52 49 56 41 54 45 20 | 6d 2e 6d 63 6f 6c 2c 6d |PRIVATE |m.mcol,m|
|000017d0| 2e 6d 63 6f 6c 5f 6c 61 | 73 74 2c 6d 2e 73 6c 69 |.mcol_la|st,m.sli|
|000017e0| 64 65 72 5f 76 61 6c 0d | 0a 0d 0a 49 46 20 2e 4e |der_val.|...IF .N|
|000017f0| 4f 54 2e 4d 44 4f 57 4e | 28 29 2e 4f 52 2e 2e 4e |OT.MDOWN|().OR..N|
|00001800| 4f 54 2e 42 45 54 57 45 | 45 4e 28 4d 52 4f 57 28 |OT.BETWE|EN(MROW(|
|00001810| 29 2c 7b 7b 56 50 4f 53 | 7d 7d 2c 7b 7b 56 50 4f |),{{VPOS|}},{{VPO|
|00001820| 53 2b 48 45 49 47 48 54 | 7d 7d 29 0d 0a 20 20 52 |S+HEIGHT|}})..  R|
|00001830| 45 54 55 52 4e 20 2e 46 | 2e 0d 0a 45 4e 44 49 46 |ETURN .F|...ENDIF|
|00001840| 0d 0a 6d 2e 6d 63 6f 6c | 5f 6c 61 73 74 3d 2d 32 |..m.mcol|_last=-2|
|00001850| 0d 0a 44 4f 20 57 48 49 | 4c 45 20 4d 44 4f 57 4e |..DO WHI|LE MDOWN|
|00001860| 28 29 0d 0a 20 20 6d 2e | 6d 63 6f 6c 3d 49 4e 54 |()..  m.|mcol=INT|
|00001870| 28 4d 49 4e 28 4d 41 58 | 28 4d 43 4f 4c 28 29 2c |(MIN(MAX|(MCOL(),|
|00001880| 7b 7b 48 50 4f 53 7d 7d | 29 2c 7b 7b 48 50 4f 53 |{{HPOS}}|),{{HPOS|
|00001890| 2b 57 49 44 54 48 2d 2e | 37 35 2a 48 45 49 47 48 |+WIDTH-.|75*HEIGH|
|000018a0| 54 2d 32 7d 7d 29 29 0d | 0a 20 20 49 46 20 6d 2e |T-2}})).|.  IF m.|
|000018b0| 6d 63 6f 6c 3d 6d 2e 6d | 63 6f 6c 5f 6c 61 73 74 |mcol=m.m|col_last|
|000018c0| 2e 4f 52 2e 4d 43 4f 4c | 28 29 3c 30 0d 0a 20 20 |.OR.MCOL|()<0..  |
|000018d0| 20 20 4c 4f 4f 50 0d 0a | 20 20 45 4e 44 49 46 0d |  LOOP..|  ENDIF.|
|000018e0| 0a 20 20 6d 2e 6d 63 6f | 6c 5f 6c 61 73 74 3d 6d |.  m.mco|l_last=m|
|000018f0| 2e 6d 63 6f 6c 0d 0a 20 | 20 6d 2e 73 6c 69 64 65 |.mcol.. | m.slide|
|00001900| 72 5f 76 61 6c 3d 6d 2e | 6d 63 6f 6c 2d 7b 7b 48 |r_val=m.|mcol-{{H|
|00001910| 50 4f 53 7d 7d 2b 31 0d | 0a 20 20 6d 2e 63 6f 6c |POS}}+1.|.  m.col|
|00001920| 33 3d 6d 2e 73 6c 69 64 | 65 72 5f 76 61 6c 0d 0a |3=m.slid|er_val..|
|00001930| 20 20 53 48 4f 57 20 47 | 45 54 53 20 4f 46 46 0d |  SHOW G|ETS OFF.|
|00001940| 0a 20 20 53 48 4f 57 20 | 47 45 54 20 6d 2e 63 6f |.  SHOW |GET m.co|
|00001950| 6c 33 0d 0a 45 4e 44 44 | 4f 0d 0a 52 45 54 55 52 |l3..ENDD|O..RETUR|
|00001960| 4e 20 2e 46 2e 0d 0a 0d | 0a 00 00 00 00 00 00 00 |N .F....|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001980| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0d 4d 53 |........|......MS|
|00001990| 20 53 61 6e 73 20 53 65 | 72 69 66 00 00 00 00 00 | Sans Se|rif.....|
|000019a0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0e 53 |........|.......S|
|000019b0| 6c 69 64 65 72 5f 43 6f | 6e 74 72 6f 6c 00 00 00 |lider_Co|ntrol...|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 01 f8 |........|........|
|000019d0| 2a 3a 44 45 46 4f 42 4a | 20 53 6c 69 64 65 72 5f |*:DEFOBJ| Slider_|
|000019e0| 43 6f 6e 74 72 6f 6c 33 | 0d 0a 7b 7b 26 2e 6d 2e |Control3|..{{&.m.|
|000019f0| 67 78 5f 76 70 6f 73 3d | 56 50 4f 53 7d 7d 0d 0a |gx_vpos=|VPOS}}..|
|00001a00| 7b 7b 26 2e 6d 2e 67 78 | 5f 68 70 6f 73 3d 48 50 |{{&.m.gx|_hpos=HP|
|00001a10| 4f 53 7d 7d 0d 0a 7b 7b | 26 2e 6d 2e 67 78 5f 68 |OS}}..{{|&.m.gx_h|
|00001a20| 65 69 67 68 74 3d 48 45 | 49 47 48 54 7d 7d 0d 0a |eight=HE|IGHT}}..|
|00001a30| 7b 7b 26 2e 6d 2e 67 78 | 5f 77 69 64 74 68 3d 57 |{{&.m.gx|_width=W|
|00001a40| 49 44 54 48 7d 7d 0d 0a | 7b 7b 26 2e 3d 69 6e 73 |IDTH}}..|{{&.=ins|
|00001a50| 72 65 63 28 29 7d 7d 0d | 0a 7b 7b 26 2e 52 45 50 |rec()}}.|.{{&.REP|
|00001a60| 4c 41 43 45 20 45 58 50 | 52 20 57 49 54 48 20 22 |LACE EXP|R WITH "|
|00001a70| 27 63 3a 5c 66 6f 78 70 | 72 6f 77 5c 67 6f 6f 64 |'c:\foxp|row\good|
|00001a80| 69 65 73 5c 62 69 74 6d | 61 70 73 5c 61 72 72 6f |ies\bitm|aps\arro|
|00001a90| 77 73 5c 61 72 77 30 31 | 64 6e 2e 62 6d 70 27 22 |ws\arw01|dn.bmp'"|
|00001aa0| 2c 20 56 50 4f 53 20 57 | 49 54 48 20 6d 2e 67 78 |, VPOS W|ITH m.gx|
|00001ab0| 5f 76 70 6f 73 2b 2e 35 | 2c 20 48 50 4f 53 20 57 |_vpos+.5|, HPOS W|
|00001ac0| 49 54 48 20 6d 2e 67 78 | 5f 68 70 6f 73 2b 2e 35 |ITH m.gx|_hpos+.5|
|00001ad0| 2c 20 48 45 49 47 48 54 | 20 57 49 54 48 20 6d 2e |, HEIGHT| WITH m.|
|00001ae0| 67 78 5f 68 65 69 67 68 | 74 2c 20 57 49 44 54 48 |gx_heigh|t, WIDTH|
|00001af0| 20 57 49 54 48 20 6d 2e | 67 78 5f 77 69 64 74 68 | WITH m.|gx_width|
|00001b00| 2c 20 43 4f 4d 4d 45 4e | 54 20 57 49 54 48 20 27 |, COMMEN|T WITH '|
|00001b10| 2a 3a 4e 4f 33 44 27 7d | 7d 0d 0a 7b 7b 26 2e 3d |*:NO3D'}|}..{{&.=|
|00001b20| 69 6e 73 74 78 74 31 28 | 22 6d 2e 63 6f 6c 31 3d |instxt1(|"m.col1=|
|00001b30| 4d 49 4e 28 4d 41 58 28 | 6d 2e 63 6f 6c 31 2c 30 |MIN(MAX(|m.col1,0|
|00001b40| 29 2c 7b 7b 57 49 44 54 | 48 2d 48 45 49 47 48 54 |),{{WIDT|H-HEIGHT|
|00001b50| 2d 32 7d 7d 29 22 2b 6d | 2e 63 72 5f 6c 66 2b 22 |-2}})"+m|.cr_lf+"|
|00001b60| 40 20 7b 7b 56 50 4f 53 | 7d 7d 2c 7b 7b 48 50 4f |@ {{VPOS|}},{{HPO|
|00001b70| 53 7d 7d 2b 6d 2e 63 6f | 6c 31 20 53 41 59 20 7b |S}}+m.co|l1 SAY {|
|00001b80| 7b 45 58 50 52 7d 7d 20 | 42 49 54 4d 41 50 20 53 |{EXPR}} |BITMAP S|
|00001b90| 49 5a 45 20 7b 7b 48 45 | 49 47 48 54 7d 7d 2c 7b |IZE {{HE|IGHT}},{|
|00001ba0| 7b 48 45 49 47 48 54 7d | 7d 20 49 53 4f 4d 45 54 |{HEIGHT}|} ISOMET|
|00001bb0| 52 49 43 22 29 7d 7d 0d | 0a 7b 7b 26 2e 53 4b 49 |RIC")}}.|.{{&.SKI|
|00001bc0| 50 20 2d 31 7d 7d 0d 0a | 00 00 00 00 00 00 00 00 |P -1}}..|........|
|00001bd0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 08 |........|........|
|00001be0| 22 40 2a 49 56 4e 20 22 | 00 00 00 00 00 00 00 00 |"@*IVN "|........|
|00001bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 02 |........|........|
|00001c00| be 7b 7b 26 2e 53 4b 49 | 50 20 31 7d 7d 0d 0a 7b |.{{&.SKI|P 1}}..{|
|00001c10| 7b 26 2e 6d 2e 67 78 5f | 63 6f 64 65 3d 22 40 20 |{&.m.gx_|code="@ |
|00001c20| 22 2b 6f 62 6a 70 6f 73 | 28 29 2b 22 2b 6d 2e 63 |"+objpos|()+"+m.c|
|00001c30| 6f 6c 31 20 43 4c 45 41 | 52 20 54 4f 20 22 2b 53 |ol1 CLEA|R TO "+S|
|00001c40| 54 52 28 56 50 4f 53 2b | 2e 35 2a 48 45 49 47 48 |TR(VPOS+|.5*HEIGH|
|00001c50| 54 2d 2e 32 2c 37 2c 33 | 29 2b 22 2c 22 2b 53 54 |T-.2,7,3|)+","+ST|
|00001c60| 52 28 48 50 4f 53 2b 48 | 45 49 47 48 54 2c 37 2c |R(HPOS+H|EIGHT,7,|
|00001c70| 33 29 2b 22 2b 6d 2e 63 | 6f 6c 31 22 2b 6d 2e 63 |3)+"+m.c|ol1"+m.c|
|00001c80| 72 2b 6c 66 2b 22 20 20 | 6d 2e 63 6f 6c 31 3d 6d |r+lf+"  |m.col1=m|
|00001c90| 2e 73 6c 69 64 65 72 5f | 76 61 6c 22 2b 6d 2e 63 |.slider_|val"+m.c|
|00001ca0| 72 5f 6c 66 2b 22 20 20 | 40 20 22 2b 6f 62 6a 70 |r_lf+"  |@ "+objp|
|00001cb0| 6f 73 28 29 2b 22 2b 6d | 2e 63 6f 6c 31 20 53 41 |os()+"+m|.col1 SA|
|00001cc0| 59 20 22 2b 49 49 46 28 | 27 3a 27 24 45 58 50 52 |Y "+IIF(|':'$EXPR|
|00001cd0| 2c 22 22 2c 22 27 43 3a | 27 2b 22 29 2b 4d 4c 49 |,"","'C:|'+")+MLI|
|00001ce0| 4e 45 28 45 58 50 52 2c | 31 29 2b 22 20 42 49 54 |NE(EXPR,|1)+" BIT|
|00001cf0| 4d 41 50 20 53 49 5a 45 | 20 22 2b 53 54 52 28 48 |MAP SIZE| "+STR(H|
|00001d00| 45 49 47 48 54 2c 37 2c | 33 29 2b 22 2c 22 2b 53 |EIGHT,7,|3)+","+S|
|00001d10| 54 52 28 48 45 49 47 48 | 54 2c 37 2c 33 29 2b 22 |TR(HEIGH|T,7,3)+"|
|00001d20| 20 49 53 4f 4d 45 54 52 | 49 43 22 7d 7d 0d 0a 7b | ISOMETR|IC"}}..{|
|00001d30| 7b 26 2e 53 4b 49 50 20 | 2d 31 7d 7d 0d 0a 0d 0a |{&.SKIP |-1}}....|
|00001d40| 50 52 49 56 41 54 45 20 | 6d 2e 6d 63 6f 6c 2c 6d |PRIVATE |m.mcol,m|
|00001d50| 2e 6d 63 6f 6c 5f 6c 61 | 73 74 2c 6d 2e 73 6c 69 |.mcol_la|st,m.sli|
|00001d60| 64 65 72 5f 76 61 6c 0d | 0a 0d 0a 49 46 20 2e 4e |der_val.|...IF .N|
|00001d70| 4f 54 2e 4d 44 4f 57 4e | 28 29 2e 4f 52 2e 2e 4e |OT.MDOWN|().OR..N|
|00001d80| 4f 54 2e 42 45 54 57 45 | 45 4e 28 4d 52 4f 57 28 |OT.BETWE|EN(MROW(|
|00001d90| 29 2c 7b 7b 56 50 4f 53 | 7d 7d 2c 7b 7b 56 50 4f |),{{VPOS|}},{{VPO|
|00001da0| 53 2b 2e 37 35 2a 48 45 | 49 47 48 54 7d 7d 29 0d |S+.75*HE|IGHT}}).|
|00001db0| 0a 20 20 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 45 |.  RETUR|N .F...E|
|00001dc0| 4e 44 49 46 0d 0a 6d 2e | 6d 63 6f 6c 5f 6c 61 73 |NDIF..m.|mcol_las|
|00001dd0| 74 3d 2d 32 0d 0a 44 4f | 20 57 48 49 4c 45 20 4d |t=-2..DO| WHILE M|
|00001de0| 44 4f 57 4e 28 29 0d 0a | 20 20 6d 2e 6d 63 6f 6c |DOWN()..|  m.mcol|
|00001df0| 3d 49 4e 54 28 4d 49 4e | 28 4d 41 58 28 4d 43 4f |=INT(MIN|(MAX(MCO|
|00001e00| 4c 28 29 2c 7b 7b 48 50 | 4f 53 7d 7d 29 2c 7b 7b |L(),{{HP|OS}}),{{|
|00001e10| 48 50 4f 53 2b 57 49 44 | 54 48 2d 48 45 49 47 48 |HPOS+WID|TH-HEIGH|
|00001e20| 54 2d 32 7d 7d 29 29 0d | 0a 20 20 49 46 20 6d 2e |T-2}})).|.  IF m.|
|00001e30| 6d 63 6f 6c 3d 6d 2e 6d | 63 6f 6c 5f 6c 61 73 74 |mcol=m.m|col_last|
|00001e40| 2e 4f 52 2e 4d 43 4f 4c | 28 29 3c 30 0d 0a 20 20 |.OR.MCOL|()<0..  |
|00001e50| 20 20 4c 4f 4f 50 0d 0a | 20 20 45 4e 44 49 46 0d |  LOOP..|  ENDIF.|
|00001e60| 0a 20 20 6d 2e 6d 63 6f | 6c 5f 6c 61 73 74 3d 6d |.  m.mco|l_last=m|
|00001e70| 2e 6d 63 6f 6c 0d 0a 20 | 20 6d 2e 73 6c 69 64 65 |.mcol.. | m.slide|
|00001e80| 72 5f 76 61 6c 3d 6d 2e | 6d 63 6f 6c 2d 7b 7b 48 |r_val=m.|mcol-{{H|
|00001e90| 50 4f 53 7d 7d 2b 31 0d | 0a 20 20 7b 7b 6d 2e 67 |POS}}+1.|.  {{m.g|
|00001ea0| 78 5f 63 6f 64 65 7d 7d | 0d 0a 45 4e 44 44 4f 0d |x_code}}|..ENDDO.|
|00001eb0| 0a 52 45 54 55 52 4e 20 | 2e 46 2e 0d 0a 0d 0a 00 |.RETURN |.F......|
|00001ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ed0| 00 00 01 00 00 00 13 53 | 70 69 6e 6e 65 72 5f 43 |.......S|pinner_C|
|00001ee0| 6f 6e 74 72 6f 6c 44 61 | 74 65 00 00 00 00 00 00 |ontrolDa|te......|
|00001ef0| 00 00 00 01 00 00 00 d5 | 2a 3a 44 45 46 4f 42 4a |........|*:DEFOBJ|
|00001f00| 20 53 70 69 6e 6e 65 72 | 5f 43 6f 6e 74 72 6f 6c | Spinner|_Control|
|00001f10| 44 61 74 65 0d 0a 2a 3a | 49 4e 53 53 43 58 20 53 |Date..*:|INSSCX S|
|00001f20| 50 49 4e 4e 45 52 0d 0a | 7b 7b 49 49 46 28 2e 4e |PINNER..|{{IIF(.N|
|00001f30| 4f 54 2e 27 2e 27 24 27 | 7b 7b 4e 41 4d 45 7d 7d |OT.'.'$'|{{NAME}}|
|00001f40| 27 2e 4f 52 2e 55 50 50 | 45 52 28 4c 45 46 54 28 |'.OR.UPP|ER(LEFT(|
|00001f50| 27 7b 7b 4e 41 4d 45 7d | 7d 27 2c 32 29 29 3d 3d |'{{NAME}|}',2))==|
|00001f60| 27 4d 2e 27 2c 27 27 2c | 27 2a 3a 54 52 4e 54 58 |'M.','',|'*:TRNTX|
|00001f70| 54 20 7b 7b 4e 41 4d 45 | 7d 7d 20 3d 20 7c 7c 20 |T {{NAME|}} = || |
|00001f80| 52 45 50 4c 41 43 45 20 | 6d 2e 73 70 6e 72 5f 76 |REPLACE |m.spnr_v|
|00001f90| 61 6c 75 65 20 57 49 54 | 48 20 27 29 7d 7d 0d 0a |alue WIT|H ')}}..|
|00001fa0| 2a 3a 54 52 4e 54 58 54 | 20 6d 2e 73 70 6e 72 5f |*:TRNTXT| m.spnr_|
|00001fb0| 76 61 6c 75 65 20 7c 7c | 20 7b 7b 4e 41 4d 45 7d |value ||| {{NAME}|
|00001fc0| 7d 0d 0a 2a 3a 53 41 56 | 45 53 49 5a 45 00 00 00 |}..*:SAV|ESIZE...|
|00001fd0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0d 4d |........|.......M|
|00001fe0| 53 20 53 61 6e 73 20 53 | 65 72 69 66 00 00 00 00 |S Sans S|erif....|
|00001ff0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0c |........|........|
|00002000| 6d 2e 73 70 6e 72 5f 76 | 61 6c 75 65 00 00 00 00 |m.spnr_v|alue....|
|00002010| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00002020| 1c 2a 3a 44 45 46 4f 42 | 4a 20 53 70 69 6e 6e 65 |.*:DEFOB|J Spinne|
|00002030| 72 5f 56 61 6c 75 65 44 | 61 74 65 0d 0a 00 00 00 |r_ValueD|ate.....|
|00002040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00002060| 00 00 08 22 40 4b 20 23 | 23 23 22 00 00 00 00 00 |..."@K #|##".....|
|00002070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00002080| 00 00 00 0d 4d 53 20 53 | 61 6e 73 20 53 65 72 69 |....MS S|ans Seri|
|00002090| 66 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |f.......|........|
|000020a0| 01 00 00 00 19 2a 20 4c | 4f 57 45 52 20 4c 49 4d |.....* L|OWER LIM|
|000020b0| 49 54 0d 0a 52 45 54 55 | 52 4e 20 30 0d 0a 00 00 |IT..RETU|RN 0....|
|000020c0| 00 01 00 00 00 1b 2a 20 | 55 50 50 45 52 20 4c 49 |......* |UPPER LI|
|000020d0| 4d 49 54 0d 0a 52 45 54 | 55 52 4e 20 39 39 39 0d |MIT..RET|URN 999.|
|000020e0| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002100| 00 00 00 01 00 00 00 0d | 4d 53 20 53 61 6e 73 20 |........|MS Sans |
|00002110| 53 65 72 69 66 00 00 00 | 00 00 00 00 00 00 00 00 |Serif...|........|
|00002120| 00 00 00 00 01 00 00 00 | 09 6d 2e 73 70 6e 72 5f |........|.m.spnr_|
|00002130| 75 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |up......|........|
|00002140| 00 00 00 00 00 01 00 00 | 00 17 2a 3a 44 45 46 4f |........|..*:DEFO|
|00002150| 42 4a 20 53 70 69 6e 6e | 65 72 5f 55 70 44 61 74 |BJ Spinn|er_UpDat|
|00002160| 65 00 00 00 00 00 01 00 | 00 00 08 22 40 2a 49 56 |e.......|..."@*IV|
|00002170| 4e 20 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |N ".....|........|
|00002180| 00 00 00 00 00 00 00 01 | 00 00 00 20 5f 43 55 52 |........|... _CUR|
|00002190| 4f 42 4a 20 3d 20 4f 42 | 4a 4e 55 4d 28 6d 2e 73 |OBJ = OB|JNUM(m.s|
|000021a0| 70 6e 72 5f 76 61 6c 75 | 65 29 0d 0a 00 00 00 00 |pnr_valu|e)......|
|000021b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021c0| 00 00 00 00 00 00 00 00 | 00 01 00 00 03 12 50 52 |........|......PR|
|000021d0| 49 56 41 54 45 20 6d 2e | 6d 69 6e 5f 6c 69 6d 69 |IVATE m.|min_limi|
|000021e0| 74 2c 6d 2e 6d 61 78 5f | 6c 69 6d 69 74 2c 6d 2e |t,m.max_|limit,m.|
|000021f0| 69 6e 63 72 65 6d 65 6e | 74 2c 6d 2e 66 61 63 74 |incremen|t,m.fact|
|00002200| 6f 72 2c 6d 2e 6d 5f 64 | 65 6c 61 79 0d 0a 50 52 |or,m.m_d|elay..PR|
|00002210| 49 56 41 54 45 20 6d 2e | 6d 5f 64 6f 77 6e 2c 6d |IVATE m.|m_down,m|
|00002220| 2e 64 65 6c 61 79 31 2c | 6d 2e 73 65 63 0d 0a 0d |.delay1,|m.sec...|
|00002230| 0a 2a 20 53 54 41 52 54 | 20 53 50 49 4e 4e 45 52 |.* START| SPINNER|
|00002240| 5f 55 50 0d 0a 6d 2e 6d | 5f 64 6f 77 6e 3d 4d 44 |_UP..m.m|_down=MD|
|00002250| 4f 57 4e 28 29 0d 0a 57 | 41 49 54 20 43 4c 45 41 |OWN()..W|AIT CLEA|
|00002260| 52 0d 0a 49 46 20 2e 4e | 4f 54 2e 6d 2e 6d 5f 64 |R..IF .N|OT.m.m_d|
|00002270| 6f 77 6e 0d 0a 20 20 52 | 45 54 55 52 4e 20 2e 46 |own..  R|ETURN .F|
|00002280| 2e 0d 0a 45 4e 44 49 46 | 0d 0a 6d 2e 6d 69 6e 5f |...ENDIF|..m.min_|
|00002290| 6c 69 6d 69 74 3d 30 2e | 30 0d 0a 6d 2e 6d 61 78 |limit=0.|0..m.max|
|000022a0| 5f 6c 69 6d 69 74 3d 39 | 39 39 2e 30 0d 0a 6d 2e |_limit=9|99.0..m.|
|000022b0| 69 6e 63 72 65 6d 65 6e | 74 3d 31 2e 30 0d 0a 6d |incremen|t=1.0..m|
|000022c0| 2e 66 61 63 74 6f 72 3d | 31 2e 30 0d 0a 6d 2e 6d |.factor=|1.0..m.m|
|000022d0| 5f 64 65 6c 61 79 3d 2e | 31 32 0d 0a 6d 2e 64 65 |_delay=.|12..m.de|
|000022e0| 6c 61 79 31 3d 2e 54 2e | 0d 0a 44 4f 20 57 48 49 |lay1=.T.|..DO WHI|
|000022f0| 4c 45 20 6d 2e 6d 5f 64 | 6f 77 6e 0d 0a 20 20 2a |LE m.m_d|own..  *|
|00002300| 20 53 54 41 52 54 20 4c | 4f 4f 50 0d 0a 20 20 2a | START L|OOP..  *|
|00002310| 20 50 52 45 20 55 50 44 | 41 54 45 0d 0a 20 20 6d | PRE UPD|ATE..  m|
|00002320| 2e 73 70 6e 72 5f 76 61 | 6c 75 65 20 3d 20 6d 2e |.spnr_va|lue = m.|
|00002330| 73 70 6e 72 5f 76 61 6c | 75 65 2b 6d 2e 66 61 63 |spnr_val|ue+m.fac|
|00002340| 74 6f 72 2a 6d 2e 69 6e | 63 72 65 6d 65 6e 74 0d |tor*m.in|crement.|
|00002350| 0a 20 20 53 48 4f 57 20 | 4f 42 4a 45 43 54 20 4f |.  SHOW |OBJECT O|
|00002360| 42 4a 4e 55 4d 28 6d 2e | 73 70 6e 72 5f 76 61 6c |BJNUM(m.|spnr_val|
|00002370| 75 65 29 0d 0a 20 20 2a | 20 50 4f 53 54 20 55 50 |ue)..  *| POST UP|
|00002380| 44 41 54 45 0d 0a 20 20 | 49 46 20 6d 2e 64 65 6c |DATE..  |IF m.del|
|00002390| 61 79 31 0d 0a 20 20 20 | 20 6d 2e 64 65 6c 61 79 |ay1..   | m.delay|
|000023a0| 31 3d 2e 46 2e 0d 0a 20 | 20 20 20 6d 2e 73 65 63 |1=.F... |   m.sec|
|000023b0| 3d 53 45 43 4f 4e 44 53 | 28 29 0d 0a 20 20 20 20 |=SECONDS|()..    |
|000023c0| 44 4f 20 57 48 49 4c 45 | 20 6d 2e 6d 5f 64 6f 77 |DO WHILE| m.m_dow|
|000023d0| 6e 2e 41 4e 44 2e 41 42 | 53 28 53 45 43 4f 4e 44 |n.AND.AB|S(SECOND|
|000023e0| 53 28 29 2d 6d 2e 73 65 | 63 29 3c 6d 2e 6d 5f 64 |S()-m.se|c)<m.m_d|
|000023f0| 65 6c 61 79 0d 0a 20 20 | 20 20 20 20 6d 2e 6d 5f |elay..  |    m.m_|
|00002400| 64 6f 77 6e 3d 4d 44 4f | 57 4e 28 29 0d 0a 20 20 |down=MDO|WN()..  |
|00002410| 20 20 45 4e 44 44 4f 0d | 0a 20 20 20 20 49 46 20 |  ENDDO.|.    IF |
|00002420| 2e 4e 4f 54 2e 6d 2e 6d | 5f 64 6f 77 6e 0d 0a 20 |.NOT.m.m|_down.. |
|00002430| 20 20 20 20 20 45 58 49 | 54 0d 0a 20 20 20 20 45 |     EXI|T..    E|
|00002440| 4e 44 49 46 0d 0a 20 20 | 45 4e 44 49 46 0d 0a 20 |NDIF..  |ENDIF.. |
|00002450| 20 6d 2e 73 65 63 3d 53 | 45 43 4f 4e 44 53 28 29 | m.sec=S|ECONDS()|
|00002460| 0d 0a 20 20 44 4f 20 57 | 48 49 4c 45 20 6d 2e 6d |..  DO W|HILE m.m|
|00002470| 5f 64 6f 77 6e 2e 41 4e | 44 2e 41 42 53 28 53 45 |_down.AN|D.ABS(SE|
|00002480| 43 4f 4e 44 53 28 29 2d | 6d 2e 73 65 63 29 3c 6d |CONDS()-|m.sec)<m|
|00002490| 2e 6d 5f 64 65 6c 61 79 | 0d 0a 20 20 20 20 6d 2e |.m_delay|..    m.|
|000024a0| 6d 5f 64 6f 77 6e 3d 4d | 44 4f 57 4e 28 29 0d 0a |m_down=M|DOWN()..|
|000024b0| 20 20 45 4e 44 44 4f 0d | 0a 20 20 2a 20 45 4e 44 |  ENDDO.|.  * END|
|000024c0| 20 4c 4f 4f 50 0d 0a 45 | 4e 44 44 4f 0d 0a 2a 20 | LOOP..E|NDDO..* |
|000024d0| 45 4e 44 20 53 50 49 4e | 4e 45 52 5f 55 50 0d 0a |END SPIN|NER_UP..|
|000024e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002500| 00 00 01 00 00 00 0d 4d | 53 20 53 61 6e 73 20 53 |.......M|S Sans S|
|00002510| 65 72 69 66 00 00 00 00 | 00 00 00 00 00 00 00 00 |erif....|........|
|00002520| 00 00 00 01 00 00 00 0b | 6d 2e 73 70 6e 72 5f 64 |........|m.spnr_d|
|00002530| 6f 77 6e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |own.....|........|
|00002540| 00 00 00 00 01 00 00 00 | 5c 2a 3a 44 45 46 4f 42 |........|\*:DEFOB|
|00002550| 4a 20 53 70 69 6e 6e 65 | 72 5f 44 6f 77 6e 44 61 |J Spinne|r_DownDa|
|00002560| 74 65 0d 0a 2a 3a 42 41 | 53 4f 42 4a 20 53 70 69 |te..*:BA|SOBJ Spi|
|00002570| 6e 6e 65 72 5f 55 70 44 | 61 74 65 0d 0a 2a 3a 54 |nner_UpD|ate..*:T|
|00002580| 52 4e 54 58 54 20 6d 2e | 66 61 63 74 6f 72 3d 31 |RNTXT m.|factor=1|
|00002590| 2e 30 20 7c 7c 20 6d 2e | 66 61 63 74 6f 72 3d 2d |.0 || m.|factor=-|
|000025a0| 31 2e 30 0d 0a 00 00 00 | 00 00 00 00 00 00 00 00 |1.0.....|........|
|000025b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025c0| 00 00 00 00 00 00 00 00 | 01 00 00 00 08 22 40 2a |........|....."@*|
|000025d0| 49 56 4e 20 22 00 00 00 | 00 00 00 00 00 00 00 00 |IVN "...|........|
|000025e0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0d 4d 53 |........|......MS|
|000025f0| 20 53 61 6e 73 20 53 65 | 72 69 66                | Sans Se|rif     |
+--------+-------------------------+-------------------------+--------+--------+